用VB快速下载[网页源代码]

后台下载
声明：
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

'//调用
然后在代码里直接调用：
Call URLDownloadToFile(0, "网页地址", "保存到本地文件名和地址", 0, 0)
如
Call URLDownloadToFile(0, "http://www.baidu.com/", "c:\1.htm", 0, 0)

相当于另存为
声明：
Private Declare Function DoFileDownload Lib "shdocvw.dll"(ByVal lpszFile As String) As Long

'//调用
然后在代码里直接调用：
Dim gourl As String
AdUrl = StrConv("网页地址", vbUnicode)
Call DoFileDownload(gourl)

Private Declare Function DoFileDownload Lib "shdocvw.dll" (ByVal lpszFileAsString) As Long
Private Sub Command1_Click()
Dim s